home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-11
/
kgclock.zip
/
SMDEMO.PRG
< prev
next >
Wrap
Text File
|
1992-08-13
|
473b
|
14 lines
function main
local nErr
scroll()
@0,0 say padr(" Press any key to exit program",80) color "n/w"
CLOCK( 0, 70 ) // Install clock
inkey(0) // allow clock to run until keypress
nErr:=CLOCK() // Remove clock
@3,0 say "Return code from clock is "+STR(nErr,3) color "w+/n"
return nil
function CLOCK(nRow,nCol)
local x:=IF(nRow==NIL.OR.nCol==NIL,BK_TICKREM(),BK_TICKINS(nRow, nCol))
return x